﻿Public Class EmanetIslemDokumu : Inherits ProcessReport

	Dim yil, tahsilno As Input
	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Emanet işlem dökümü", "Emanet yılını ve fiş numarasını girin.")
				yil = AddField("@Yil", "", "", "Emanet yılını girmeniz gerekir.")
				tahsilno = AddField("FisNo", "nl", "", "Emanet tahsil fişi numarasını girmeniz gerekir.")
			Case EventType.ValidateForm
				Rs = Kasa.EmanetAnaOku(Local, yil.get, tahsilno.get)
				If Rs.EOF Then
					Warning("Emanet fişi bulunamadı.")
					Focus("Yil")
					Return
				End If
				e.Result = True
			Case EventType.ReportHeader
			Case EventType.PageHeader
				Report.PrintReportInfo("EMANET İŞLEM RAPORU", yil.get & " YILI, " & tahsilno.get & " NO'LU TAHSİL FİŞİ")
				Dim Rsm = Kasa.KmahsupOku(Local, yil.get, tahsilno.get)
				Report.PrintParagraph("TAHSİL TAR. : " & DMY(Rsm("islemtar")) & ", İŞYERİ : " & Rsm("kime"))
				Report.PrintParagraph("FİŞ AÇIKLAMASI : " & Rsm("acik"))
				Report.SkipLine()
				Report.SetColumns("Sıra;Makbuz no.;İşyeri no;Alınan;Kesilen;Kalan;Tdy.no.;Kull.;İşlem tar.;İptal", "1;2;2;2;2;2;1;1;2;1", "c;c;c;m;m;m;c;c;d;c", "--")
			Case EventType.ReportDetail
				Rs = Kasa.EmanetOku(Local, yil.get, tahsilno.get)
				Dim Sira As Integer = 1
				For Each Row In Rs
					Report.Print(Rs.Line, Rs("makbuz"), FormatIsyeriNo(IsNull(Rs("isyerino"), "")), Rs("emanmikt"), Rs("makbuzmik"), Rs("emanmikk"), Rs("tediyeno"), Rs("kaykul"), Rs("islemtar"), Rs("iptal"))
				Next
		End Select
	End Sub

End Class
